home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSVS.LSP < prev   
Text File  |  1980-01-01  |  812b  |  28 lines
  1. ;This function is similar to IBM CADAM's view-size
  2. ;command, it changes the scale of the view depending
  3. ;which half of the screen the user indicates on.
  4. ;Top half    - view scale larger (zoom out)
  5. ;Bottom half - view scale smaller (zoom in)
  6. ;
  7. ;Function name "EDSVS.LSP"  -   Execute command "VS"
  8. ;
  9. ;Written by Steve Brown and Christopher Conrad
  10. ;
  11. ;
  12. (defun c:vs ()
  13.   (setq vs (getvar "viewsize"))
  14.   (setq vc (getvar "viewctr"))
  15.   (setq ip (getpoint "indicate point"))
  16.   (setq q (/ vs 2))
  17.   (setq vcy (cadr vc))
  18.   (setq ipy (cadr ip))
  19.   (setq qy1 (- vcy ipy))
  20.   (setq qy (abs qy1))
  21.   (setq vd (* 5 (/ qy q)))
  22.   (setq sf (* vd vd))
  23.   (if (< qy1 0) (setq zm (/ 1 sf)))
  24.   (if (> qy1 0) (setq zm (* 1 sf)))
  25.   (setq zm2 (rtos zm 2 2))
  26.   (setq zm1 (strcat zm2 "x"))
  27.   (command "zoom" zm1)
  28.   )